unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, SUIImagePanel, SUIButton, RzPanel, jpeg, StdCtrls, IniFiles,
  Registry, DB, ADODB;

type
  TForm1 = class(TForm)
    suiImagePanel1: TsuiImagePanel;
    RzPanel1: TRzPanel;
    suiImageButton1: TsuiImageButton;
    suiImageButton2: TsuiImageButton;
    suiImageButton3: TsuiImageButton;
    Label1: TLabel;
    Timer1: TTimer;
    ADOConnection1: TADOConnection;
    Image1: TImage;
    Label2: TLabel;
    ADOQuery1: TADOQuery;
    Timer2: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure RzPanel1Resize(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure suiImageButton1Click(Sender: TObject);
    procedure suiImageButton2Click(Sender: TObject);
    procedure suiImageButton3Click(Sender: TObject);
    procedure Label2MouseEnter(Sender: TObject);
    procedure Label2MouseLeave(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Label2Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    vg_flag_sjk: Integer;
    vg_con_sjk: Boolean;
    sjk_flag: Boolean;
    vg_path: string;
    vg_server: string;
    vg_usr_sjk, vg_passwd_sjk: string;
    vg_date: string;
    vg_flag_shq: Integer;
    vg_bdzmcsoft: string;
    function zhcsoft: Integer;
    procedure strtodt(str: string; var dt: TDateTime);
    procedure dttostr(dt: TDateTime; var str: string);
    function getshqkey(flag: Integer; bdzmc: string): string;
  end;

var
  Form1: TForm1;
  hnd: THandle;

implementation

uses Unit2, Unit3, Unit6, Unit7, Unit8, Unit9, wf_zhc;

{$R *.dfm}

// ... (Unit1的实现代码)